####### Exerccio 1  ########


getwd()

Comandon utilizado para alterar o diretrio de trabalho
setwd("C:/Documents and Settings/Laps_24/Meus documentos/Catarina/R")
getwd()

###### Comando Perigoso  #####

ls()
rm(list=ls())

### Para evitar perder tudo #####
save.image()

#### Remoo Com Critrio #####

rm(list=ls(pattern="temp"))

### Classes de objetos #####

letters
LETTERS

class(letters)
class(LETTERS)

fator=factor(letters)
fator
fator2=factor(LETTERS)


########## Objetos de Data #####

hoje <- Sys.Date() 
hoje
class(hoje)
help(date)
copa="21/06/1970"
class(copa)
copa = as.Date(copa,format="%d/%m/%y")
copa
class(copa)

resposta=hoje-copa
resposta = Time difference of -3010 days

resposta3=hoje+43
"2011-05-07"

